//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "TAboutFrom.h"
#include "TMainForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
//#pragma link "SHDocVw_OCX"
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TAboutForm *AboutForm;
//---------------------------------------------------------------------------
__fastcall TAboutForm::TAboutForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::Button1Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::FormCreate(TObject *Sender)
{
  wchar_t *URL;
  URL = new wchar_t[100];
  AnsiString Str = "http://www.graf.lt/about.html";
  Str.WideChar(URL, 100);
  WB->Navigate(URL, TNoParam(), TNoParam(), TNoParam(), TNoParam());
}
//---------------------------------------------------------------------------


